^GETTICK MAC   
         PHS   2          
         Tool  $2503      
         <<<   
^WRITECHAR MAC 
         PHW   ]1         
         Tool  $180C      
         <<<   
IGSOS    MAC   
         JSL   $E100A8    
         DO    ]3         
         DA    ]1.$2000   
         ELSE  
         DA    ]1         
         FIN   
         ADRL  ]2         
         <<<   
PULLLONG MAC   
         DO    ]0         
         PullWord ]1      
         PullWord ]1+2    
         ELSE  
         PullWord 
         PullWord 
         FIN   
         <<<   
PULLWORD MAC   
         PLA   
         DO    ]0         
         STA   ]1         
         FIN   
         IF    MX/2       
         PLA   
         DO    ]0         
         STA   ]1+1       
         FIN   
         FIN   
         <<<   
^GETINGLOBALS MAC 
         PHS   2          
         Tool  $C0C       
         <<<   
_TEXTSTARTUP MAC 
         Tool  $20C       
         <<<   
_TEXTSHUTDOWN MAC 
         Tool  $30C       
         <<<   
^TEXTSTATUS MAC 
         PHA   
         Tool  $60C       
         <<<   
^SETINGLOBALS MAC 
         PxW   ]1;]2      
         Tool  $90C       
         <<<   
^SETOUTGLOBALS MAC 
         PxW   ]1;]2      
         Tool  $A0C       
         <<<   
^GETOUTGLOBALS MAC 
         PHS   2          
         Tool  $D0C       
         <<<   
^SETINPUTDEVICE MAC 
         PHWL  ]1;]2      
         Tool  $F0C       
         <<<   
^SETOUTPUTDEVICE MAC 
         PHWL  ]1;]2      
         Tool  $100C      
         <<<   
^GETINPUTDEVICE MAC 
         PHS   3          
         Tool  $120C      
         <<<   
^GETOUTPUTDEVICE MAC 
         PHS   3          
         Tool  $130C      
         <<<   
^INITTEXTDEV MAC 
         PHW   ]1         
         Tool  $150C      
         <<<   
^WRITECSTRING MAC 
         PHL   ]1         
         Tool  $200C      
         <<<   
_WRITECSTRING MAC 
         Tool  $200C      
         <<<   
^READCHAR MAC  
         P1SW  ]1         
         Tool  $220C      
         <<<   
PHWL     MAC   
         PHW   ]1         
         PHL   ]2         
         <<<   
PXW      MAC   
         DO    ]0/1       
         PHW   ]1         
         DO    ]0/2       
         PHW   ]2         
         DO    ]0/3       
         PHW   ]3         
         DO    ]0/4       
         PHW   ]4         
         FIN   
         FIN   
         FIN   
         FIN   
         <<<   
PHL      MAC   
         IF    #=]1       
         PEA   ^]1        
         ELSE  
         PHW   ]1+2       
         FIN   
         PHW   ]1         
         <<<   
P1SW     MAC   
         PHA   
         IF    #=]1       
         PEA   ]1         
         ELSE  
         IF    MX/2       
         LDA   ]1+1       
         PHA   
         FIN   
         LDA   ]1         
         PHA   
         FIN   
         <<<   
PHW      MAC   
         IF    #=]1       
         PEA   ]1         
         ELSE  
         IF    MX/2       
         LDA   ]1+1       
         PHA   
         FIN   
         LDA   ]1         
         PHA   
         FIN   
         <<<   
PHS      MAC   
         DO    ]0         
         LUP   ]1         
         PHA   
         --^   
         ELSE  
         PHA   
         FIN   
         <<<   
LONGACC  MAC   
         IF    MX&2       
         REP   %00100000  
         FIN   
         <<<   
SHORTACC MAC   
         IF    MX&2       
         ELSE  
         SEP   %00100000  
         FIN   
         <<<   
TOOL     MAC   
         LDX   #]1        
         JSL   $E10000    
         <<<   
